Waitms 10
  Inputbin Serport







  Select Case Serport


      Case 1:
            Inputbin Serport
            Writeeeprom Serport , 0
            Tmin(1) = Serport

      Case 2:
            Inputbin Serport
            Writeeeprom Serport , 1
            Tmin(2) = Serport

      Case 3:
            Inputbin Serport
            Writeeeprom Serport , 2
            Tmin(3) = Serport

      Case 4:
            Inputbin Serport
            Writeeeprom Serport , 3
            Tmax(1) = Serport

      Case 5:
            Inputbin Serport
            Writeeeprom Serport , 4
            Tmax(2) = Serport

      Case 6:
            Inputbin Serport
            Writeeeprom Serport , 5
            Tmax(3) = Serport

      Case 7:
            Incr _min

      Case 128:
            Outik = Tmin(1)
            Printbin Outik

      Case 129:
            Outik = Tmin(2)
            Printbin Outik

      Case 130:
            Outik = Tmin(3)
            Printbin Outik

      Case 131:
            Outik = Tmax(1)
            Printbin Outik

      Case 132:
            Outik = Tmax(2)
            Printbin Outik

      Case 133:
            Outik = Tmax(3)
            Printbin Outik

      Case 134:
            Printbin _min

      Case 135:
            Outik = Th(1)
            Printbin Outik

      Case 136:
            Outik = Th(2)
            Printbin Outik

      Case 137:
            Outik = Th(3)
            Printbin Outik

      Case 138:
            Outik = Tl(1)
            Printbin Outik

      Case 139:
            Outik = Tl(2)
            Printbin Outik

      Case 140:
            Outik = Tl(3)
            Printbin Outik

      Case 141:
            Outik = Th(1)
            Printbin Outik
            Printbin Tl(1)
            If Portd.7 = 0 Then
               Portd.7 = 1
            Else
               Portd.7 = 0
            End If

      Case 142:
            Printbin Datas(1)

  End Select